home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / lang / nrcobol_1e.lha / NRCOBOL1e / COBFILES / TESTSUB1.COB < prev    next >
Text File  |  1997-06-25  |  499b  |  21 lines
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID.   TESTSUB1.
  3.       *AUTHOR.       cHArRiOTt.
  4.        ENVIRONMENT DIVISION.
  5.  
  6.        CONFIGURATION SECTION.
  7.        SOURCE-COMPUTER.   AMSTRAD 1512.
  8.        OBJECT-COMPUTER.
  9.       *
  10.        DATA DIVISION.
  11.        FILE SECTION.
  12.       *
  13.        WORKING-STORAGE SECTION.
  14.        01 WS-TEST PIC X(10) VALUE SPACES.
  15.       *
  16.        PROCEDURE DIVISION.
  17.       *
  18.        0000-MAIN.
  19.            DISPLAY "now in test1 program , test ok!".
  20.            EXIT PROGRAM.
  21.       *